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| eae rR Se HPT bet ts Pte eet ae Poe oF aj 
MODULE BASSSOPEN. ZERO ( 
TDENT = "1-002" i File: BASOPENZE.B32 


BEGIN 


PAPE SSSELIOS ELIS TET ETT T TTT TTT Terre ricci icici titi ici iii iii iiiiiiiy 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


; 1 0001 

; ¢ 4iC4 

; B28 

; 4 004 1 

; 5 0005 1 

: 6 B08 1 

: 7 000 1 
: 8 0008 1 
: 9 0009 1 * 
: 19 Baio : = ALL RIGHTS RESERVED. * 
; ie * 
H \§ Bni§ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
he 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
>; #14 0014 1 !* INCLUSI F THE ABOVE COPYRIGHT NOTICE. THIS ARE OR ANY OTHER * 
We 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: + apie : ? TRANSFERRED. * 
; .* © 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 td : 7° CORPORATION. * 
4 it ® 
; 38 $098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ae 0025 1 !* * 
; & 0026 1 !* * 
: 27 0027 1 Nearer eae eee eee RARER EERE RARE A AERA AEE E TEER ATA A AAA AAEAREATE REAR EEE 
; @ 0028 1! 

H 9 0029 1 

; 0 0030 1 !++ ‘ 

a 06031 1 ! FACILITY: BASIC-PLUS-2 Miscellaneous 1/0 

ji mk oF T4 ; 7 

; 33 0035 1 ! ABSTRACT: 

; - 0034 1! 

, 39 0035 1! This module contains an internal subroutine used by several 

; = 0036 1! of the BASIC functions which can operate on the terminal. 

as ae 0037 1! The BASIC Language definition assumes that the terminal is 

; ss 0038 1! qovweys open’’, but on VAX we do not open it until we need to. 

: 2» 0039 1! To make this as easy as possible, this module OPENs channel 

; re Beco ' } zero whenever anyone needs it. 

: $¢ Bne$ : : ENVIRONMENT: VAX~-11 User Mode 

; te bee : AUTHOR: John Sauter, CREATION DATE: 17-APR-1979 

; 646 0046 1 ! MODIFIED BY: 

3; 67 0047 1! : 

: 648 0048 1 ! 1-001 = Original. 

; «(49 0049 1 ! 1-002 - Set ISBSA_USER_FP. JBS 25-JUL-1979 

; 0050 1 !-- 

ee || 0051 1 

; BS 0052 1 !<BLF/PAGE> 


— 
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; 4 053 1! 

; 5 054 1 ! SWITCHES: 

| O86 1 

3 28 0087 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; @& 0059 1! 

3; 686) Bnd 1 ! LINKAGES: 

3 o¢ 061 1! 

; 66 0062 1 

>; 664 065 1 REQUIRE ‘RTLIN:OTSLNK'; ! Define Linkages 

3; 65 238 1 

>; 66 495 1! 

: 67 0494 1 ! TABLE OF CONTENTS: 

; «68 0495 1! 

; & 0496 1 

3; 0497 1 FORWARD ROUTINE 

eae 0498 1 BASSSOPEN_ZERO : NOVALUE; ! Open channel zero 

; 8 0499 1 

s ££ 0500 1! 

: 74 0501 1 ! INCLUDE FILES: 

ae e. b208 1! 

; 0503 1 

; Ag Bete ; REQUIRE ‘RTLML:OTSLUB'; ! Get LUB definitions 

3 je bese : REQUIRE ‘RTLML:OTSISB’'; ! Get ISB definitions 

; 3 +33 : REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 
; = 0910 1 LIBRARY ‘RTLSTARLE'; ! System symbols 

; (B4 0911 «1 

3; 85 b3i§ 1! 

: 86 091 1 ! MACROS: 

| COBY 0914 1! 

; 8 0915 1! NONE 

; oP 0916 1! 

: 90 0917 1 ! EQUATED SYMBOLS: 

; 0918 1! 

Se 0919 1! NONE 

ca & 0920 1! 

; (94 Bas) 1 ! PSECTS: 

; 9 09 § 1! ae 
3 4 O97 } DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
: 98 §33¢ 1 ! OWN STORAGE: 

; 99 b3s8 1! 

3; 100 9 1! NONE 

: 101 928 1! 

2 106 929 1 ! EXTERNAL REFERENCES: 

s 0 0930 1! 

3; 104 0931 1 

; 105 9 : 1 EXTERNAL ROUTINE 

> 106 933 1 BAS$$CB_PUSH : JSB_CB_PUSH NOVALUE, ' Load register CCB 

: 107 934 1 BAS$S$CB"POP_: JSB_CB_POP NOVALUE, ! Done with register CCB 

3 H's 9442 ' BASSSOPEN_DEFLT :~CACL_CCB NOVALUE; ! Open one side of chan. 0 


er 


—_— 


| n 8 
BASSSOPEN_ZERO 16-Sep-1984 00:58: AX-11 Bliss-32 V4.0-742 
1-002 14-8ep- 38 $9: 38'55 BASRTL.SRCIBASOPENZE.B 2;1 
3; 333 937 1 GLOBAL ROUTINE BASSSOPEN_ZERO ( ! Open channel zero 
; 11g 9 : 1 P ! User's frame pointer 
; 9 1 ) : NOVALUE = 
3; 114 0940 1 
. 315 b3e3 1 le 
3 18 Bae ' } FUNCTIONAL DESCRIPTION: 
: #118 944 1! Opens BASIC “'channel 0°’, which is implemented as two LUNs, 
: «119 945 1! Linked together. 
; 120 O98 1! 
3 tei 0947 1 ! FORMAL PARAMETERS: 
3 3 ¢ 0948 1! 
; 4 0949 1! FMP.ra.v Address of the user's frame. 
> 126 0950 1! 
3 \$3 0951 1°! IMPLICIT INPUTS: 
: 126 8236 1! e ; 
3; ler 0955 1! The LUNs for BASIC ‘‘channel 0’ 
> 128 0954 1! 
s ‘ev 0955 1 ! IMPLICIT OUTPUTS: 
; 130 0956 1! 
; «131 0957 1! The LUNs for BASIC ‘‘channel 0°’ 
; 136 0958 1! 
; 15 0959 1 ! ROUTINE VALUE: 
: «134 0960 1 ! COMPLETION CODES: 
; I 0961 1! 
> 136 0962 1! NONE 
s Isr 09635 1! 
; «138 0964 1 ! SIDE EFFECTS: 
; 139 0965 1! ’ : 
; 140 0966 1! Disables ASTs during most of its execution. | 
: «(141 0967 1! OPENs two LUNs. Any errors encountered are signaled. 
: ry 0968 1! 
: 14 0969 1 !-- 
3 «(144 0970 1 
3 «145 0971 BEGIN 
: 146 097 
3 «6147 097 GLOBAL REGISTER 
3 «6148 0974 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
3 149 0975 2 
; 130 0976 MAP 
s 131 0977 FMP : REF BLOCK C, BYTE); 
3 13¢ 0978 
. 0979 LOCAL 
3: 61546 6 0 AST_STATUS, 
s 155 981 INPOT CCB : REF BLOCK C, BYTE) 
> 156 098 OUTPUT_CCB : REF BLOCK C, BYTES; 
3 137 098 
s 138 Bane '¢ 4 
s 159 985 ' We are called only if one of the LUNs on channel 0 is not 
; 160 986 ' open, but we don't want to depend on which, so we will call 
: «161 987 : BAS$$CB_PUSH for each LUN, thereby using recursive 1/0. 
; 166 + First get the CCB for the input side of channel 0. 
3; 164 0990 passece PUSH (LUBSK_LUN sry het ILUN_MIN); 
> 165 991 CCB CISBS$A_USER FPJ~= .FMP CSFSL_SAVE_FPI; 
: 166 099 INPUT_CCB = .CCB; 
3; 167 099 '¢ 


—_ 7 
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ae tH ereen ithe 99: 2e es eRe othe ieacopence oS2:1 


093¢ } Now get the CCB for the output side of channel 0. 

99 "  BASSSCB_PUSH (LUBSK_LUN_BPRI, LUBSK_ILUN_MIN); 

033 CCB CISBS$A_USER_FPJ~= .FMP geste saneceey. 

8095 - OUTPUT_CCB™= .CCB; 

1000 OPEN the two LUNs. Since yn Fig routine opens channel 0 


and since it is not closed until image exit, both LUNs should 

be closed. If an AST causes us to re-enter this code we can 

gst into serious trouble with RMS, so we must (regretfully) 
isable ASTs during the two OPENs. 


AST_STATUS = SSETAST (ENBFLG = 0); 
IF ( NOT .INPUT_CCB CLUBSV_OPENED]) 
THEN 


GIN 
CCB = .INPUT_CCB; 

BASSSOPEN_DEFLT (); 
CCB = .OUTPU : 
2 BASSSOPEN_DEFCT (5; 


Now | ink together the two LUNs so they can share information 
i easily. 
le 


INPUT_CCB CLUBSA_BUDDY_PTR] = .OUTPUT_CCB; 
OUTPUT CCB CLUBSA_BUDDY_PTR] = .INPUT_CCB; 


DODO OODDOWDWOWWOWWON NIN NINN NINO 


FREAVLSSSLE SEAN LSE SSISALAV ALS SSNS APA SS oo 


'¢ 
Now that the LUNs are set up, we can re-enable ASTs. 


IF (.AST_STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = 1); 


1+ 
Release the two CCBs, in the proper order. 


WRIRIPIPINPINININININ 2 2 OOO OS SS DOOOOOCOOOCOSO 


DIDI st a st tk tt a kd td 
COD NAUE WN 9 OONOAU EWN $$ OO ONOAUE WN (O OONO UNE Wh 


Se Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Se Se Fe Se Se Se Ge Fe Se Ge FH Se Se Se Se Ge Ge Se Se Se Se See Se Se Ge Fee Se ee Seeeese 
=PIPIPIPIPINIPININININININININI NINN NM WWW WWII CR nonononononononononononony 


a a ee ee a a ed a dd ad ed 
Ce ae we ee iw oe ow i www olelolololelelololololololaloleolololololololo! 


3 

2 3 CCB = .OUTPUT_CCB; 

207 3 BASSS$CB_POP (J; 

208 3 CCB = .INPUT_CCB; 

74 H BASS$$CB_POP 7%); 

211 3 i Our caller, who is holding the address of one of those CCBs, 

$i§ ; : should now find that it is open. 

214 4 "END; ! of routine BASSSOPEN_ZERO 
.TITLE BASSSOPEN_ZERO 
-IDENT \1-002\ 
-EXTRN BAS$S$CB_PUSH, BASS$$CB_POP 


SEXTRN BASSSOPEN_DEFLT 
“EXTRN SYSS$SETAST 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


Page 
. (3) 


ae 
| BASSSOPEN_ZERO 1s Sep 8: AX-11 Bliss-32 V4.0-7 Page 5 
14 on 14-Sep 71382 90: 38 0 BASRTL.SRC BASOPENZE. 3 2:1 9 03) 
09FC 00000 .ENTRY BASSSOPEN. ZERO, Save R2,R3,R4,R5,R6,R7,RB,- ; 0937 
58 000000006 00 9€ 0002 MOVAB BASS$CB_ PUSH, RB : 
57 0000 0G 0 9€ 00 MOVAB BAS$$CB~P 7 : 
$ 00000006 00 gE 0 19 MOVAB BASSSOPEN Peet. R6 : 
00000006 00 9E 0001 MOVAB SYSSSETAST : 
0 : CE O01 MNEGL #8, R R + 0990 
52 CE 00 MNEGL : 
68 16 00024 JSB BASSSCB_ PUSH : 
53 04 aC DO 00026 MOVL FMP, R : 0991 
FF4C 6B OC A D0 99 A MOVL  12(R3), =180(CCB) : 
54 5B 00 00 9 MOVL CCB, INPUT_CCB + 0992 
50 08 CE 000 MNEGL eee R : 0996 
52 08 CE 00 6 MNEGL #8, R : 
68 16 00039 JSB BASS$$CB_PUSH : 
FF4C CB 0c A’ 00 90038 MOVL  12(R3),~=180(CCB) + 0997 
52 5B DO 00041 MOVL CCB, OUTPUT_CCB + 0998 
7E D4 B0044 CLRL = = (SP) + 1006 
65 01 FB 00046 CALLS #1, SYSSSETAST : 
53 50 00 00049 MOVL RO, AST_STATUS ; 
14 FC «AG EB 0004C BLBS § -4(INPUT_CCB) + 1008 
58 54 DO 90050 MOVL _INPUT_CCB, CCB + 1011. 
66 00 FB 0005 CALLS #0 BASSSOPEN DEFLT : 101g 
5B 52 DO 00056 MOVL OutP PUT + 1013. 
66 00 FB 00059 CALLS #0 BA ASSSOPEN DEFLT + 1014. 
BB AG 52 dO 0005C¢ MOVL OUTPU -72(INPUT_CCB) : 1019. 
B8 A2 54 DO 00060 MOVL OUP Pur Tetge "=FeCouTPUT “¢CB) + 1020. 
09 53 D1 00064 1$: CMPL se AST USTA ATus, : 1027 
05 12 00067 BNEQ 2s : | 
01 DD 00069 PUSHL " : 
65 01 FB 0006B CALLS SYSSSETAST : | 
58 52 DO O006E 28: move’ OUfPUT CCB, CC : 1032. 
67 16 00071 JSB BAS$$CB_POP : 1033 
5B 54 00 00073 MOVL INPUT CCB, CCB > 1034 
67 16 00076 JSB BAS$$TB_POP : 1035 | 
04 00078 RET + 1040 


; Routine Size: 121 bytes, Routine Base: _BASSCODE + 0000 


3s 6215 1041 1 

: 216 Ho 1 END ! of module BASS$SSOPEN_ZERO 
3; ay 10435 1 

; 218 1044 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 121 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


“ba 
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Library 


File 
-$255$DUA28: CSYSLIBISTARLET.L32; 1 


sree tence ttt Beane ata as aetitaalncte MSRC$:BASOPENZE/UPDATE=(ENH$: BASOPENZE 


ie 11° 9 + 0 data bytes 
Elapsed Time: 


00:20.8 
Lines/CPU Min: 6929 
Lexemes/CPU-Min: 42756 
penety Used: 122 pages 
Compilation Complete 


f 9 
16-Sep 
14-Sep 

Statistics 
~ armas SyYBOOlS sccosose 
Totai Loaded Percent 
9776 5 0 


COMMAND QUALIFIERS 


Pages 
Mapped 


581 


VAX-11 Bliss-32 V4.0-74 
CBASRTL.SRCIJBASOPENZE .B32;1 


Processing 
Time 
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